10 REM *******************************
20 REM *                             *
30 REM *  GARDNER'S PROMPTING TOOLS  *
40 REM *       CIRCA. 1984           *
50 REM *******************************
60 :
65 POKE783,PEEK(783)AND254
70 PRINT"[147]":POKE53281,7:GOSUB20000
80 :
90 :
100 POKE783,PEEK(783)AND254:POKE53281,7:PRINT"[147]"
105 REM CLEAR CARRY FLAG
110 H1=2:H2=2:H3=35:H4=35
120 V1=2:V2=22:V3=2:V4=22
130 REM SET UP HORIZONTAL & VERTICAL
140 :
150 PL=65520
160 REM  SYS ADDRESS FOR 'PLOT' ROUTINE
165 :
170 :
180 :
200 REM  FIRST CHARACTER
205 :
210 M$="[206][195][205][194]"
215 C1$="SHIFT 'N'- [206]":C2$="SHIFT 'M'- [205]":C3$="SHIFT 'C'- [195]":C4$="SHIFT 'B'- [194]"
220 LN=210:P=1:GOSUB10000
290 :
295 :
300 REM  SECOND CHARACTER
310 M$="[213][201][203][202]"
315 C1$="SHIFT 'U'- [213]":C2$="SHIFT 'I'- [201]":C3$="SHIFT 'K'- [203]":C4$="SHIFT 'J'- [202]"
320 LN=310:P=1:GOSUB10000
390 :
395 :
400 REM  THIRD CHARACTER
410 M$="[210][198][196][197]"
415 C1$="SHIFT 'E'- [197]":C2$="SHIFT 'D'- [196]":C3$="SHIFT 'F'- [198]":C4$="SHIFT 'R'- [210]"
420 LN=410:P=1:GOSUB10000
490 :
495 :
500 REM  FOURTH CHARACTER
510 M$="[212][199][200][217][212][199][200][217]"
515 C1$="SHIFT 'T'- [212]":C2$="SHIFT 'G'- [199]":C3$="SHIFT 'H'- [200]":C4$="SHIFT 'Y'- [217]"
520 LN=510:P=1:GOSUB10000
590 :
595 :
600 REM  FIFTH CHARACTER
610 M$="[207][208][186][204]"
615 C1$="SHIFT 'O'- [207]":C2$="SHIFT 'P'- [208]":C3$="SHIFT '@'- [186]":C4$="SHIFT 'L'- [204]"
620 LN=610:P=1:GOSUB10000
690 :
695 :
700 REM  SIXTH CHARACTER
710 M$="[209][215]"
715 C1$="SHIFT 'Q'- [209]":C2$="SHIFT 'W'- [215]":C3$="":C4$=""
720 LN=710:P=1:GOSUB10000
790 :
795 :
800 REM  SEVENTH CHARACTER
810 M$="><"
815 C1$="SHIFT '.'- >":C2$="SHIFT ','- <":C3$="":C4$=""
820 LN=810:P=1:GOSUB10000
890 :
895 :
900 REM  EIGHTH CHARACTER
910 M$=". "
915 C1$="   PERIOD":C2$="   SPACE":C3$="":C4$=""
920 LN=910:P=1:GOSUB10000
990 :
995 :
1000 REM  NINTH CHARACTER
1010 M$="(O)(0)"
1015 C1$="SHIFT '8'- (":C2$="SHIFT '9'- )":C3$="     OH":C4$="    ZERO"
1020 LN=1010:P=1:GOSUB10000
1090 :
1095 :
1100 REM  TENTH CHARACTER
1110 M$="[201][194][213]"
1115 C1$="SHIFT 'U'- [213]":C2$="SHIFT 'I'- [201]":C3$="SHIFT 'B'- [194]":C4$=""
1120 LN=1110:P=1:GOSUB10000
1190 :
1195 :
1200 REM  ELEVENTH CHARACTER
1210 M$="+[219]"
1215 C1$="SHIFT '+'- [219]":C2$="PLUS SIGN":C3$="":C4$=""
1220 LN=1210:P=1:GOSUB10000
1290 :
1295 :
1300 REM  TWELFTH CHARACTER
1310 M$="[171][177][179][178]"
1315 C1$="   C= 'Q'- [171]":C2$="   C= 'W'- [179]":C3$="   C= 'E'- [177]":C4$="   C= 'R'- [178]"
1320 LN=1310:P=1:GOSUB10000
1390 :
1395 :
1400 REM  THIRTENTH CHARACTER
1410 M$="[176][174][189][173]"
1415 C1$="   C= 'A'- [176]":C2$="   C= 'S'- [174]":C3$="   C= 'X'- [189]":C4$="   C= 'Z'- [173]"
1420 LN=1410:P=1:GOSUB10000
1490 :
1495 :
1500 REM  FOURTENTH CHARACTER
1510 M$="[183][184][162][185][175][164][164][175][185][162][184][183][163]"
1515 C1$="   C= 'T'- [163]":C2$="   C= 'Y'- [183]":C3$="   C= 'U'- [184]":C4$="   C= 'I'- [162]"
1517 C5$="   C= 'O'- [185]":C6$="   C= 'P'- [175]":C7$="   C= '@'- [164]"
1520 LN=1510:P=1:GOSUB10000
1590 :
1595 :
1600 REM  FIFTENTH CHARACTER
1610 M$="[167][170][182][161][181][180][165][180][181][161][182][170][167]"
1615 C1$="    C= 'M'- [167]":C2$="    C= 'N'- [170]":C3$="    C= 'G'- [165]"
1617 C4$="    C= 'H'- [180]":C5$="    C= 'J'- [181]":C6$="    C= 'K'- [161]"
1618 C7$="    C= 'L'-[182]":C8$=""
1620 LN=1610:P=1:GOSUB10000
1690 :
1695 :
1700 REM  SIXTENTH CHARACTER
1710 M$="[211][211][211][211][209]"
1715 C1$="SHIFT 'S'- [211]":C2$="SHIFT 'Q'- [209]":C3$="":C4$="":C5$="":C6$="":C7$=""
1720 LN=1710:P=1:GOSUB10000
1790 :
1795 :
1800 REM  SEVENTENTH CHARACTER
1810 M$="[195]=[195]="
1815 C1$="SHIFT 'C'- [195]":C2$="EQUAL SIGN  ":C3$="":C4$="":C5$="":C6$="":C7$=""
1820 LN=1810:P=1:GOSUB10000
1890 :
1895 :
1900 REM  EIGHTENTH CHARACTER
1910 M$="][]["
1915 C1$="SHIFT ':'- [":C2$="SHIFT ';'- ]":C3$="":C4$="":C5$="":C6$="":C7$=""
1920 LN=1910:P=1:GOSUB10000
1990 :
1995 :
2000 REM  NINETENTH CHARACTER
2010 M$="[169][146][169]"
2015 C1$="REV SH '\'- [169][146]":C2$="SHIFT '\' - [169]":C3$="":C4$="":C5$="":C6$=""
2020 LN=2010:P=2:GOSUB10000
2090 :
2095 :
2100 REM  TWENTIETH CHARACTER
2110 M$="[192][146] [192][146] "
2115 C1$="SHIFT '*' - [192]":C2$="REV SH '*'- [192][146]":C3$="":C4$="":C5$="":C6$=""
2120 LN=2110:P=4:GOSUB10000
2190 :
2195 :
2200 REM  TWENTY-FIRST CHARACTER
2210 M$="[166][146] [166][146] "
2215 C1$="    C= '+'- [166]":C2$="REV C= '+'- [166][146]":C3$="":C4$="":C5$="":C6$=""
2220 LN=2210:P=4:GOSUB10000
2290 :
2295 :
2300 REM  TWENTY-SECOND CHARACTER
2310 M$="$!$!"
2315 C1$="SHIFT '4'- $":C2$="SHIFT '1'- ! ":C3$="":C4$="":C5$="":C6$=""
2320 LN=2310:P=1:GOSUB10000
2390 :
2395 :
2400 REM  TWENTY-THIRD CHARACTER
2410 M$="...!!"
2415 C1$="    PERIOD  ":C2$="SHIFT '1'- ! ":C3$="":C4$="":C5$="":C6$=""
2420 LN=2410:P=1:GOSUB10000
2490 :
2495 :
2500 REM  TWENTY-FOURTH CHARACTER
2510 M$="[172][187][190][188][172][187][190][188]"
2515 C1$=" C= 'D'- [172]":C2$=" C= 'F'- [187]":C3$=" C= 'V'- [190]":C4$=" C= 'C'- [188]":C5$=""
2520 LN=2510:P=1:GOSUB10000
2590 :
2595 :
2600 REM  TWENTY-FIFTH CHARACTER
2610 M$="[219][206][205][219][206][205]"
2615 C1$="SHIFT '+'- [219]":C2$="SHIFT 'N'- [206]":C3$="SHIFT 'M'- [205]":C4$=""
2620 LN=2610:P=1:GOSUB10000
2690 :
2695 :
9000 PRINT"[147]":PRINT"WANT TO SEE THEM AGAIN (Y/N)":POKE198,0:WAIT198,1:GETZ$
9005 IFZ$="N"THEN9950
9010 IFZ$="Y"THEN100
9020 GOTO9000
9950 PRINT"[147]"
9955 PRINT"LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
9960 POKE631,13:POKE632,13:POKE198,2:END
9999 :
10000 REM SUB TO PLOT
10010 PRINT"[147]"
10015 PRINT"THIS CURSOR USES THE CHARACTERS:"
10017 PRINT:PRINT
10018 PRINTTAB(13)C1$:PRINTTAB(13)C2$:PRINTTAB(13)C3$:PRINTTAB(13)C4$
10019 PRINTTAB(13)C5$:PRINTTAB(13)C6$:PRINTTAB(13)C7$
10020 PRINT:PRINTTAB(5)"THE STRING IS CONTAINED IN LINE:":PRINTTAB(16)LN
10021 POKE781,22:POKE782,10:SYS65520:PRINT"<PLEASE PRESS A KEY>"
10022 REM THIS IS WHERE THE ACTUAL
10024 REM PLOTTING ROUTINE BEGINS.
10025 FORX=1TOLEN(M$)/P:A$=MID$(M$,X,P):GETI$:IFI$<>""THEN10080
10030 POKE781,V1:POKE782,H1:SYSPL:PRINTA$
10040 POKE781,V2:POKE782,H2:SYSPL:PRINTA$
10050 POKE781,V3:POKE782,H3:SYSPL:PRINTA$
10060 POKE781,V4:POKE782,H4:SYSPL:PRINTA$
10065 :
10070 NEXTX:GOTO10025
10080 RETURN
20000 REM    INSTRUCTIONS????
20010 PRINT"[147]"
20020 POKE781,2:POKE782,8:SYS65520:PRINT"GARDNER'S GARDEN TOOLS"
20030 PRINT:PRINT:PRINT
20040 PRINT" WELL YOU MIGHT HAVE NOTICED THAT JUST":PRINT
20050 PRINT"ABOUT EVERYONE LIKES TO USE AN ORDINARY":PRINT
20060 PRINT"EVERYDAY CURSOR FOR AN INPUT PROMPT.":PRINT
20070 PRINT"            WELL, NOT ME!!!":PRINT:PRINT
20080 PRINT" THIS IS WHY I WROTE GARDNER'S GARDEN":PRINT
20090 PRINT"TOOLS.  NOW I CAN SHARE SOME OF MY BEST":PRINT
20100 PRINT"AND PERHAPS STRANGEST CURSOR PROMPTS.":PRINT
20105 POKE781,22:POKE782,10:SYS65520:PRINT"<PLEASE PRESS A KEY>"
20106 POKE198,0:WAIT198,1:GETZ$
20107 PRINT"[147]":POKE781,2:POKE782,8:SYS65520:PRINT"GARDNER'S GARDEN TOOLS"
20108 PRINT:PRINT:PRINT
20110 PRINT" I HOPE YOU ENJOY THIS PROGRAM AND I":PRINT
20120 PRINT"HOPE YOU WILL TRY TO THINK OF OTHERS ":PRINT
20130 PRINT"AND SHARE THEM WITH ME.":PRINT:PRINT:PRINT
20140 PRINT" AND NOW FOR YOUR LAST LOOK AT AN ":PRINT
20150 PRINT"ORDINARY CURSOR.":PRINT:PRINT
20160 POKE781,22:POKE782,10:SYS65520:PRINT"<PLEASE PRESS A KEY>"
20165 X$=" [146] "
20170 FORT=1TOLEN(X$)/2:POKE781,23:POKE782,19:SYS65520:PRINTMID$(X$,T,2)
20180 GETZ$:IFZ$<>""THEN20190
20182 FORDL=1TO180:NEXTDL
20185 NEXTT:GOTO20170
20190 RETURN